home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / mondu / fs_filen.bas < prev    next >
BASIC Source File  |  1994-09-18  |  766b  |  30 lines
  1. 1000 DIM F$(13),B%(50000)
  2. 1020 VIEW  (0,0)-(1023,511)
  3. 1030 WINDOW(0,0)-(1023,511)
  4. 1040 COLOR ,7,%8
  5. 1050 CLS
  6. 10000 F$( 0)="IO.SYS"
  7. 10010 F$( 1)="MSDOS.SYS"
  8. 10020 F$( 2)="CONFIG.SYS"
  9. 10030 F$( 3)="CTL.SYS"
  10. 10040 F$( 4)="TBIOS.SYS"
  11. 10050 F$( 5)="TBIOS.BIN"
  12. 10060 F$( 6)="TOWNS.SYS"
  13. 10070 F$( 7)="OAK0.SYS"
  14. 10080 F$( 8)="OAK1.SYS"
  15. 10090 F$( 9)="GDS.SYS"
  16. 10100 F$(10)="MOUSE.SYS"
  17. 10110 F$(11)="TICM.SYS"
  18. 10120 F$(12)="COMMAND.COM"
  19. 10130 F$(13)="AUTOEXEC.BAT"
  20. 11000 XS=640:YS=0:XL=6*13-1:YL=14*11-1
  21. 11010 LINE(XS,YS)-(XS+XL,YS+YL),PSET,7,BF
  22. 11020 FOR I=0 TO 10
  23. 11030 SYMBOL(XS,YS+I*14),F$(I),.75!,.75!
  24. 11040 NEXT
  25. 12000 GET@A(XS,YS)-(XS+XL,YS+YL),B%
  26. 12100 FOR I=0 TO 13
  27. 12110 PUT@A(10,10)-(10+XL,10+YL-14),B%,,,,,I*20
  28. 12115 'WAIT 10
  29. 12120 NEXT
  30.